﻿Imports System
Imports System.Collections

Public Class SolicitudBE
#Region "Campos y Propiedades"
    Private _IdSolicitud As Integer
    Private _IdTipo As Integer
    Private _Fecha As DateTime
    Private _IdCliente As Integer
    Private _IdUsuario As Integer
    Private _DetalleSolicitud As String
    Private _FechaModificacion As DateTime
    Private _Estado As Boolean
    Private _EstadoDescripcion As String

    Public Property IdSolicitud() As Integer
        Get
            Return _IdSolicitud
        End Get
        Set(ByVal value As Integer)
            _IdSolicitud = value
        End Set
    End Property

    Public Property IdTipo() As Integer
        Get
            Return _IdTipo
        End Get
        Set(ByVal value As Integer)
            _IdTipo = value
        End Set
    End Property

    Public Property Fecha() As DateTime
        Get
            Return _Fecha
        End Get
        Set(ByVal value As DateTime)
            _Fecha = value
        End Set
    End Property

    Public Property IdCliente() As Integer
        Get
            Return _IdCliente
        End Get
        Set(ByVal value As Integer)
            _IdCliente = value
        End Set
    End Property

    Public Property IdUsuario() As Integer
        Get
            Return _IdUsuario
        End Get
        Set(ByVal value As Integer)
            _IdUsuario = value
        End Set
    End Property

    Public Property DetalleSolicitud() As String
        Get
            Return _DetalleSolicitud
        End Get
        Set(ByVal value As String)
            _DetalleSolicitud = value
        End Set
    End Property

    Public Property FechaModificacion() As DateTime
        Get
            Return _FechaModificacion
        End Get
        Set(ByVal value As DateTime)
            _FechaModificacion = value
        End Set
    End Property

    Public Property Estado() As Boolean
        Get
            Return _Estado
        End Get
        Set(ByVal value As Boolean)
            _Estado = value
        End Set
    End Property

    Public Property EstadoDescripcion() As String
        Get
            Return _EstadoDescripcion
        End Get
        Set(ByVal value As String)
            _EstadoDescripcion = value
        End Set
    End Property

#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdSolicitud As Integer, ByVal IdTipo As Integer, ByVal Fecha As DateTime, ByVal IdCliente As Integer, ByVal IdUsuario As Integer, ByVal DetalleSolicitud As String, ByVal FechaModificacion As DateTime, ByVal Estado As Boolean)
        Me._IdSolicitud = IdSolicitud
        Me._IdTipo = IdTipo
        Me._Fecha = Fecha
        Me._IdCliente = IdCliente
        Me._IdUsuario = IdUsuario
        Me._DetalleSolicitud = DetalleSolicitud
        Me._FechaModificacion = FechaModificacion
        Me.Estado = Estado
    End Sub
#End Region
End Class




#Region "SolicitudBECollection"
Public Class SolicitudBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As SolicitudBE
        Get
            Return CType(List(index), SolicitudBE)
        End Get
        Set(ByVal value As SolicitudBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As SolicitudBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As SolicitudBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As SolicitudBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As SolicitudBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As SolicitudBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class
#End Region
